perm filename REV2[COL,LCS] blob sn#104323 filedate 1974-05-25 generic text, type T, neo UTF8
ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
VARIABLE /R;
REVINIT←1;R←0;
COMPILE;
INSTRUMENT REV;
REV2(R,123,.7,D5);
REV2(U1,43,.7,D6);
REV2(U2,13,.7,D7);
REV1(U3,801,.827,D1);
REV1(U3,901,.805,D2);
REV1(U3,1011,.783,D3);
REV1(U3,1123,.764,D4);
R←0;
OUTA←OUTA+U4+U5+U6+U7;
OUTB←OUTB-U4-U5-U6-U7;
END;
FINISH;